home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / hitcou1a / hitcount.bas next >
Encoding:
BASIC Source File  |  1999-07-13  |  334 b   |  14 lines
  1. Attribute VB_Name = "mdCounter"
  2. Option Explicit
  3.  
  4. Public Numerals() As IPictureDisp
  5. Public NumCnt As Integer
  6.  
  7. Public OpenCnt As Integer
  8. Public BoxCount As Integer
  9.  
  10. Global Const CHAR_CNT As Integer = 10
  11. Global Const CHAR_SPC As Integer = 2
  12. Global Const TITLE  As String = "HitCounter"
  13. Global Const KEY  As String = "Value"
  14.